home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 001 / ledfix.pqs / lefix.pas
Encoding:
Pascal/Delphi Source File  |  1986-01-14  |  1.1 KB  |  37 lines
  1. Program LEFix;
  2.  
  3.    {This module patches the Leading Edge Model D interrupt
  4.     table to direct interrupt 33 (hexadecimal) from the
  5.     Leading Edge ROM interrupt trap to a RETI instruction in
  6.     the Leading Edge ROM.  This makes Reflex run on the
  7.     Leading Edge Model D (providing you've put some more
  8.     RAM into it!) properly.  You also need to construct an
  9.     AUTOEXEC.BAT something like this:
  10.  
  11.           VERIFY ON
  12.           NOTE Previous line part of belt and suspenders engineering
  13.           LEFIX
  14.           SET REFLEX=HERC
  15.           REFLEX
  16.  
  17.     In addition, put in Borland's patch for Hercules graphics using
  18.     ANSI.SYS; the video setup works correctly then!
  19.  
  20.           Charles L. Perrin
  21.           CompuServe 70275,1301
  22.           17 December 1985
  23.  
  24.     PS:  I *KNOW* that the program can be written in a much shorter
  25.     format using Assembly Language, but I avoid such stringently!
  26.     Anyway, it gives you an excuse to fire up TURBO PASCAL!}
  27.  
  28. Begin
  29.  
  30.    Mem[0:$0CC] := $023;
  31.    Mem[0:$0CD] := $0FC;
  32.  
  33.    Write('Change installed in interrupt table....');
  34.  
  35. End.
  36.  
  37.